home *** CD-ROM | disk | FTP | other *** search
/ Old Testament Foundatiosn with Philip Yancey / Old Testament Foundatiosn with Philip Yancey - Disc 2.iso / pc / data / discover.dir / 00045.ls < prev    next >
Encoding:
Text File  |  1996-09-09  |  516 b   |  19 lines
  1. on mouseDown
  2.   global gSaveItemsDirectoryPath, gOnIBM, gSaveFile, gMyPath, gMyText, gMyFileName
  3.   set the moveableSprite of sprite 23 to 0
  4.   if pressLessonButton(23) then
  5.     pupSprites(1, 48, 0)
  6.     identifyPlatform()
  7.     if gOnIBM then
  8.       set gMyPath to gSaveItemsDirectoryPath & "\"
  9.     else
  10.       set gMyPath to gSaveItemsDirectoryPath & ":"
  11.     end if
  12.     set gMyPath to gMyPath & gMyFileName
  13.     set gMyText to the text of field "pkdisplaytext"
  14.     saveMyFile()
  15.     alertSave()
  16.   end if
  17.   updateStage()
  18. end
  19.